home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Skunkware 5
/
Skunkware 5.iso
/
lib
/
perl5
/
Config.pm
< prev
next >
Wrap
Text File
|
1995-07-02
|
9KB
|
482 lines
package Config;
require Exporter;
@ISA = (Exporter);
@EXPORT = qw(%Config);
$] == 5.000 or die sprintf
"Perl lib version (5.000) doesn't match executable version (%.3f)\n", $];
# This file was created by configpm when Perl was built. Any changes
# made to this file will be lost the next time perl is built.
##
## This file was produced by running the Configure script. It holds all the
## definitions figured out by Configure. Should you modify one of these values,
## do not forget to propagate your changes by running "Configure -der". You may
## instead choose to run each of the .SH files by yourself, or "Configure -S".
##
#
## Configuration time: Thu Mar 30 16:56:09 EST 1995
## Configured by: contrib
## Target system: sco_sv roc 3.2 2 i386
#
$config_sh=<<'!END!OF!CONFIG!';
dynamic_ext='Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket'
extensions='Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket'
static_ext='Fcntl NDBM_File ODBM_File POSIX SDBM_File Socket'
osname='sco_sv'
osvers='3.2'
archlib='/usr/skunk/lib/perl5'
ccflags='-DNO_PROTOTYPE -D_NO_PROTO'
cppflags='-DNO_PROTOTYPE -D_NO_PROTO'
intsize='4'
libpth='/lib /usr/lib /usr/ccs/lib /usr/local/lib'
sig_name='ZERO HUP INT QUIT ILL TRAP ABRT EMT FPE KILL BUS SEGV SYS PIPE ALRM TERM USR1 USR2 CLD PWR WINCH'
so='so'
sharpbang='#!'
shsharp='true'
startsh='#!/bin/sh'
Author=''
CONFIG='true'
Date='$Date'
Header=''
Id='$Id'
Locker=''
Log='$Log'
Mcc='Mcc'
PATCHLEVEL='0'
RCSfile='$RCSfile'
Revision='$Revision'
Source=''
State=''
afs='false'
alignbytes='8'
aphostname=''
archlibexp='/usr/skunk/lib/perl5'
archname='sco_sv'
awk='awk'
bash=''
bin='/usr/skunk/bin'
binexp='/usr/skunk/bin'
bison='bison'
byacc='byacc'
byteorder='1234'
c='\c'
castflags='0'
cat='cat'
cc='cc'
cccdlflags='-dy -KPIC'
ccdlflags=''
cf_by='contrib'
cf_time='Thu Mar 30 16:56:09 EST 1995'
chgrp=''
chmod=''
chown=''
clocktype='clock_t'
compress=''
contains='grep'
cp='cp'
cpio=''
cpp='cpp'
cpp_stuff='42'
cpplast='-'
cppminus='-'
cpprun='cc -E'
cppstdin='cc -E'
cryptlib=''
csh='csh'
d_Gconvert='gcvt((x),(n),(b))'
d_access='define'
d_alarm='define'
d_archlib='undef'
d_attrib='undef'
d_bcmp='define'
d_bcopy='define'
d_bsdpgrp='undef'
d_bzero='define'
d_casti32='undef'
d_castneg='define'
d_charsprf='undef'
d_charvspr='undef'
d_chown='define'
d_chroot='define'
d_chsize='undef'
d_closedir='define'
d_const='define'
d_crypt='define'
d_csh='undef'
d_cuserid='define'
d_dbl_dig='define'
d_difftime='define'
d_dirnamlen='undef'
d_dlerror='define'
d_dlopen='define'
d_dlsymun='undef'
d_dosuid='undef'
d_drem='undef'
d_dup2='define'
d_eunice='undef'
d_fchmod='define'
d_fchown='define'
d_fcntl='define'
d_fd_macros='define'
d_fd_set='define'
d_fds_bits='define'
d_fgetpos='define'
d_flexfnam='define'
d_flock='undef'
d_fmod='define'
d_fork='define'
d_fpathconf='define'
d_fsetpos='define'
d_getgrps='define'
d_gethent='define'
d_gethname='undef'
d_getlogin='define'
d_getpgrp2='undef'
d_getpgrp='define'
d_getppid='define'
d_getprior='define'
d_group='undef'
d_htonl='define'
d_index='undef'
d_isascii='define'
d_killpg='define'
d_link='define'
d_linuxstd='undef'
d_locconv='define'
d_lockf='define'
d_lstat='define'
d_mblen='define'
d_mbstowcs='define'
d_mbtowc='define'
d_memcmp='define'
d_memcpy='define'
d_memmove='define'
d_memset='define'
d_mkdir='define'
d_mkfifo='define'
d_mktime='define'
d_msg='define'
d_msgctl='define'
d_msgget='define'
d_msgrcv='define'
d_msgsnd='define'
d_mymalloc='undef'
d_nice='define'
d_oldsock='undef'
d_open3='define'
d_passwd='undef'
d_pathconf='define'
d_pause='define'
d_phostname='undef'
d_pipe='define'
d_portable='define'
d_pwage='define'
d_pwchange='undef'
d_pwclass='undef'
d_pwcomment='define'
d_pwexpire='undef'
d_pwquota='undef'
d_readdir='define'
d_readlink='define'
d_rename='define'
d_rewinddir='define'
d_rmdir='define'
d_safebcpy='define'
d_safemcpy='undef'
d_seekdir='define'
d_select='define'
d_sem='define'
d_semctl='define'
d_semget='define'
d_semop='define'
d_setegid='define'
d_seteuid='define'
d_setlinebuf='undef'
d_setlocale='define'
d_setpgid='define'
d_setpgrp2='undef'
d_setpgrp='define'
d_setprior='define'
d_setregid='define'
d_setresgid='undef'
d_setresuid='undef'
d_setreuid='define'
d_setrgid='undef'
d_setruid='undef'
d_setsid='define'
d_shm='define'
d_shmat='define'
d_shmatprototype='define'
d_shmctl='define'
d_shmdt='define'
d_shmget='define'
d_socket='define'
d_sockpair='define'
d_statblks='define'
d_stdstdio='define'
d_strchr='define'
d_strcoll='define'
d_strctcpy='define'
d_strerrm='strerror(e)'
d_strerror='define'
d_strxfrm='define'
d_suidsafe='undef'
d_symlink='define'
d_syscall='define'
d_sysconf='define'
d_sysernlst=''
d_syserrlst='define'
d_system='define'
d_tcgetpgrp='define'
d_tcsetpgrp='define'
d_telldir='define'
d_time='define'
d_times='define'
d_truncate='define'
d_tzname='define'
d_umask='define'
d_uname='define'
d_vfork='undef'
d_void_closedir='undef'
d_voidsig='define'
d_voidtty=''
d_volatile='define'
d_vprintf='define'
d_wait4='undef'
d_waitpid='define'
d_wcstombs='define'
d_wctomb='define'
d_xenix='undef'
date='date'
defvoidused='15'
direntrytype='struct dirent'
dlext='none'
dlsrc='dl_none.xs'
echo='echo'
egrep='egrep'
emacs=''
eunicefix=':'
expr='expr'
find='find'
flex=''
fpostype='fpos_t'
gcc=''
gccversion=''
gidtype='gid_t'
glibpth='/usr/shlib /lib/pa1.1 /usr/lib/large /lib /usr/lib /usr/lib/386 /lib/386 /lib/large /usr/lib/small /lib/small /usr/ccs/lib /usr/ucblib /usr/local/lib '
grep='grep'
groupcat=''
groupstype='gid_t'
h_fcntl='true'
h_sysfile='false'
hint='previous'
hostcat='cat /etc/hosts'
huge=''
i_bsdioctl=''
i_db='undef'
i_dbm='define'
i_dirent='define'
i_dld='undef'
i_dlfcn='define'
i_fcntl='define'
i_float='define'
i_gdbm='undef'
i_grp='define'
i_limits='define'
i_malloc='define'
i_math='define'
i_memory='undef'
i_ndbm='define'
i_neterrno='undef'
i_niin='define'
i_pwd='define'
i_sgtty='undef'
i_stdarg='define'
i_stddef='define'
i_stdlib='define'
i_string='define'
i_sysdir='define'
i_sysfile='undef'
i_sysfilio='undef'
i_sysin='undef'
i_sysioctl='define'
i_sysndir='undef'
i_sysparam='define'
i_sysselct='define'
i_syssockio=''
i_systime='define'
i_systimek='undef'
i_systimes='define'
i_termio='undef'
i_termios='define'
i_time='define'
i_unistd='define'
i_utime='define'
i_varargs='undef'
i_varhdr='stdarg.h'
i_vfork='undef'
incpath=''
inews=''
installarchlib='/usr/skunk/lib/perl5'
installbin='/usr/skunk/bin'
installmansrc='/usr/skunk/man/man1'
installprivlib='/usr/skunk/lib/perl5'
installscript='/usr/skunk/bin'
known_extensions='DB_File Fcntl GDBM_File NDBM_File ODBM_File POSIX SDBM_File Socket'
ksh=''
large=''
lddlflags='-dy -G'
ldflags=''
less=''
libc='/usr/ccs/lib/libc.so'
libs='-lsocket -lnsl -lndbm -ldbm -lmalloc -ldl -lld -lm -lc -lcrypt -lPW -lx'
libswanted='net socket inet nsl nm ndbm gdbm dbm db malloc dl dld ld sun m c cposix posix ndir dir crypt ucb bsd BSD PW x'
line='line'
lint=''
lkflags=''
ln='ln'
lns='/bin/ln -s'
lp=''
lpr=''
ls='ls'
lseektype='off_t'
mail=''
mailx=''
make=''
mallocobj=''
mallocsrc=''
malloctype='void *'
manext='1'
mansrc='/usr/skunk/man/man1'
mansrcexp='/usr/skunk/man/man1'
medium=''
mips=''
mips_type=''
mkdir='mkdir'
models='none'
modetype='mode_t'
more=''
mv=''
mydomain=''
myhostname='roc.scocan.sco.com'
myuname='sco_sv roc 3.2 2 i386 '
n=''
nm_opt='-p'
nroff='nroff'
optimize='-O'
orderlib='false'
package='perl5'
passcat=''
perl='perl'
pg=''
phostname='hostname'
plibpth=''
pmake=''
pr=''
prefix='/usr/skunk'
privlib='/usr/skunk/lib/perl5'
privlibexp='/usr/skunk/lib/perl5'
prototype='define'
randbits='15'
ranlib=':'
rm='rm'
rmail=''
runnm='true'
scriptdir='/usr/skunk/bin'
scriptdirexp='/usr/skunk/bin'
sed='sed'
selecttype='fd_set *'
sendmail=''
sh=''
shar=''
shmattype='void *'
signal_t='void'
sizetype='size_t'
sleep=''
smail=''
small=''
sockethdr=''
socketlib=''
sort='sort'
spackage=''
spitshell='cat'
split=''
ssizetype='ssize_t'
stdchar='unsigned char'
strings='/usr/include/string.h'
submit=''
sysman='/usr/man/man1'
tail=''
tar=''
tbl=''
test='test'
timeincl='/usr/include/sys/time.h /usr/include/time.h '
timetype='time_t'
touch='touch'
tr='tr'
troff=''
uidtype='uid_t'
uname='uname'
uniq='uniq'
usedl='undef'
usemymalloc='n'
usenm='true'
useposix='true'
usevfork='false'
usrinc='/usr/include'
uuname=''
vi=''
voidflags='15'
xlibpth='/usr/lib/386 /lib/386'
yacc='/bin/yacc'
yaccflags=''
zcat=''
!END!OF!CONFIG!
tie %Config, Config;
sub TIEHASH { bless {} }
sub FETCH {
# check for cached value (which maybe undef so we use exists not defined)
return $_[0]->{$_[1]} if (exists $_[0]->{$_[1]});
my($value); # search for the item in the big $config_sh string
return undef unless (($value) = $config_sh =~ m/^$_[1]='(.*)'\s*$/m);
$value = undef if $value eq 'undef'; # So we can say "if $Config{'foo'}".
$_[0]->{$_[1]} = $value; # cache it
return $value;
}
sub FIRSTKEY {
$prevpos = 0;
my $key;
($key) = $config_sh =~ m/^(.*)=/;
$key;
}
sub NEXTKEY {
my ($pos, $len);
$pos = $prevpos;
$pos = index( $config_sh, "\n", $pos) + 1;
$prevpos = $pos;
$len = index( $config_sh, "=", $pos) - $pos;
$len > 0 ? substr( $config_sh, $pos, $len) : undef;
}
sub EXISTS{
exists($_[0]->{$_[1]}) or $config_sh =~ m/^$_[1]=/m;
}
sub readonly { die "\%Config::Config is read-only\n" }
sub STORE { &readonly }
sub DELETE{ &readonly }
sub CLEAR { &readonly }
1;